home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
ab20
/
ab20_archive
/
games
/
strategy
/
madgic-corewar-4.0.lzh
/
1987
/
CANCER.S
< prev
next >
Wrap
Text File
|
1988-07-09
|
837b
|
28 lines
; CANCER.S
; Thomas Gettys
; 1987
;
JMP START
JMP -1
START SPL COPY2
COPY1 MOV CNTR, PTR
INFECT1 MOV GERM, <PTR
JMN INFECT1, PTR
MOV CNTR, PTR
KILL1 MOV POISON, <PTR
JMN KILL1, PTR
JMP COPY1
COPY2 MOV CNTR, PTR
INFECT2 MOV GERM, <PTR
JMN INFECT2, <PTR
MOV CNTR, PTR
KILL2 MOV POISON, <PTR
JMN KILL2, PTR
JMP COPY2
GERM SPL 0
POISON DAT 1
CNTR DAT -20
PTR DAT 0
END